1 HGR:HGR2:B=55:C=63.6:SCALE=24:FORX=0TO5:READA,U(X),T(X):POKE768+X,A:NEXT:POKE232,0:POKE233,3:DATA1,1,2,0,2,4,4,4,8,0,0,0,4,0,0,0,0,0
2 X=INT(5*RND(1)):Y=INT(3*RND(1)):FORZ=0TO63STEPU(Y):W=(Z/T(Y)=INT(Z/INT(Z/T(Y))):POKE230,32+32*W:POKE49236+W,O:A=49200*(Z/4=INT(Z/4)):W=PEEK(A):ROT=Z:XDRAW1ATX*B+27,Y*C+31:NEXT:GOTO2